﻿Public Class VARIABLECLASS
    Dim connect As CONDB = CONDB.NewConnection()

    Public Shared Function check(Value1 As Integer, wantNull As Integer) As String
        If Value1 = 0 Then
            If wantNull = 1 Then
                Return "null"
            ElseIf wantNull = 0 Then
                Return "'" & Value1 & "'"
            End If
        Else
            Return "'" & Value1 & "'"
        End If
    End Function
End Class
